home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / ext.zip / EXT.XWS < prev    next >
Text File  |  1992-02-04  |  932b  |  30 lines
  1. /*
  2.    CREATES A FILE EXTENSION (BOOKNAME)
  3.  
  4.    THIS SCRIPT WILL CREATE AN EXTENSION CONSISTING OF
  5.    CURRENT MONTH AND DATE USING PHONE BOOK NAME AS THE FILENAME.
  6.  
  7.    CREATED FOR VERSION 1.2.1 WHICH DOES NOT PROVIDE FILE
  8.    EXTENSION FOR CAPTURE FILE UNLESS YOU SPECIFY ONE.
  9.    
  10. */
  11.  
  12.  
  13. IF (CURMONTH = 12) AND (CURDAY < 10) THEN CAPTURE NAME + ".C0"+STR(CURDAY) : JUMP DONE
  14. IF (CURMONTH = 11) AND (CURDAY < 10) THEN CAPTURE NAME + ".B0"+STR(CURDAY) : JUMP DONE
  15. IF (CURMONTH = 10) AND (CURDAY < 10) THEN CAPTURE NAME + ".A0"+STR(CURDAY) : JUMP DONE
  16.  
  17.  
  18. IF CURMONTH = 12 THEN CAPTURE NAME + ".C" + STR(CURDAY) : JUMP DONE
  19. IF CURMONTH = 11 THEN CAPTURE NAME + ".B" + STR(CURDAY) : JUMP DONE
  20. IF CURMONTH = 10 THEN CAPTURE NAME + ".A" + STR(CURDAY) : JUMP DONE
  21. IF CURDAY < 10 THEN CAPTURE NAME + "." + STR(CURMONTH) + "0" + STR(CURDAY) ELSE ...
  22. CAPTURE NAME + "." + STR(CURMONTH) + STR(CURDAY)
  23.  
  24. LABEL DONE
  25. END
  26.  
  27.  
  28.  
  29.  
  30.